home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / purebasic_demo / install < prev    next >
Text File  |  2000-02-28  |  3KB  |  170 lines
  1.  
  2. ;*
  3. ;* Install script for PureBasic V1.20
  4. ;*
  5. ;* Done by 'AlphaSND'
  6. ;*
  7.  
  8.  
  9. ;*** Autodetection for langage !
  10.  
  11. (if (> (exists ("env:Language")) 0)
  12.   (set Langage_AmigaOS (getenv "Language"))
  13. )
  14.  
  15. (set #Langage 0)
  16.  
  17. (if (= "english"  Langage_AmigaOS) (set #Langage 0))
  18. (if (= "français" Langage_AmigaOS) (set #Langage 1))
  19. (if (= "deutsch"  Langage_AmigaOS) (set #Langage 2))
  20.  
  21. (if (= #Langage 0)
  22.   (
  23.     (set #WelcomePrompt "\nWelcome !\nThank you to let give a try to PureBasic.\n\nPlease choose the langage for PureBasic:")
  24.   )
  25. )
  26.  
  27.  
  28. ;*** Francais ***
  29.  
  30. (if (= #Langage 1)
  31.   (
  32.     (set #WelcomePrompt "\nBienvenue !\nMerci de prendre la peine d'installer PureBasic.\n\nChoisissez la langue qui sera utilisée par PureBasic:")
  33.   )
  34. )
  35.  
  36.  
  37. ;*** Deutsch ***
  38.  
  39.  
  40. (if (= #Langage 2)
  41.   (
  42.     (set #WelcomePrompt "\nWillkommen !\nVielen Dank, dass Sie PureBasic ausprobieren.\n\nBitte wählen Sie Ihre Sprache für PureBasic:")
  43.   )
  44. )
  45.  
  46.  
  47. (complete 0)
  48.  
  49. (set #Langage
  50.   (askchoice
  51.     (prompt #WelcomePrompt)
  52.     (Help "")
  53.     (choices
  54.       "English"
  55.       "Francais"
  56.       "Deutsch"
  57.     )
  58.     (default #Langage)
  59.   )
  60. )
  61.  
  62.  
  63. ;*** English ***
  64.  
  65. (if (= #Langage 0)
  66.   (
  67.     (set #FBDirPrompt "Where do you want to install PureBasic ?\nA Drawer called 'PureBasic' will be created.")
  68.     (set #FBDirHelp "")
  69.     (set #FBLangSel "Select the languages to install with PureBasic.")
  70.     (set #FBIcon "Select your icons type")
  71.   )
  72. )
  73.  
  74.  
  75. ;*** Francais ***
  76.  
  77. (if (= #Langage 1)
  78.   (
  79.     (set #FBDirPrompt "Où voulez-vous installer PureBasic ?\nUn tiroir nommé 'PureBasic' sera automatiquement créé.")
  80.     (set #FBDirHelp "")
  81.     (set #FBLangSel "Choisissez quel langage vous voulez avoir pour PureBasic")
  82.     (set #FBIcon "Choisissez votre type d'icone")
  83.   )
  84. )
  85.  
  86.  
  87. ;*** Deutsch ***
  88.  
  89. (if (= #Langage 2)
  90.   (
  91.     (set #FBDirPrompt "Wo möchten Sie PureBasic installieren?\nEin Verzeichnis genannt 'PureBasic' wird erstellt.")
  92.     (set #FBDirHelp "")
  93.     (set #FBLangSel "Wählen Sie die Sprachen, die mit PureBasic installiert werden sollen.")
  94.     (set #FBIcon "Wählen Sie den gewünschten Icon-Typ.")
  95.   )
  96. )
  97.  
  98. ;*** Directory Select ***
  99.  
  100. (complete 5)
  101.  
  102. (set DestDir
  103.   (askdir
  104.     (prompt #FBDirPrompt)
  105.     (help #FBDirHelp)
  106.     (default "PureBasic:/")
  107.   )
  108. )
  109.  
  110. (set DestDir (expandpath DestDir))
  111. (set @default-dest (tackon DestDir "PureBasic"))
  112.  
  113. (set Base_Dir @default-dest)
  114.  
  115. (makedir @default-dest (infos))
  116.  
  117. (set FBench_dir @default-dest)
  118.  
  119. (set Help_Dir (cat Base_Dir "/Help/"))
  120.  
  121. ;*** Main Files ***
  122.  
  123. (complete 20)
  124.  
  125. (copyfiles
  126.   (source "PureBasic/")
  127.   (dest @default-dest)
  128.   (pattern "#?")
  129.   (optional "nofail")
  130.   (infos)
  131. )
  132.  
  133.  
  134. (copyfiles
  135.   (source "")
  136.   (dest DestDir)
  137.   (pattern "PureBasic.info")
  138. )
  139.  
  140.  
  141. ;*** Locale Help Files ***
  142.  
  143. (complete 30)
  144.  
  145. (if (= #Langage 1)
  146.   (
  147.     (copyfiles
  148.       (source "Francais/")
  149.       (dest Base_Dir)
  150.       (pattern "#?")
  151.       (optional "nofail")
  152.     )
  153.   )
  154. )
  155.  
  156.  
  157. (if (= #Langage 2)
  158.   (
  159.     (copyfiles
  160.       (source "Deutsch/")
  161.       (dest Base_Dir)
  162.       (pattern "#?")
  163.       (optional "nofail")
  164.     )
  165.   )
  166. )
  167.  
  168. (complete 100)
  169.  
  170.